-- learn Fred and Sam friends:
friends |Fred> => |Jack> + |Harry> + |Ed> + |Mary> + |Rob> + |Patrick> + |Emma> + |Charlie>
friends |Sam> => |Charlie> + |George> + |Emma> + |Jack> + |Robert> + |Frank> + |Julie>
-- find their common friends:
common[friends] split[" "] |Fred Sam>
|Jack> + |Emma> + |Charlie>